DEFINITION MODULE VTablet;

(*
VDI Escape Functions for graphic Tablets.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM VDI    IMPORT XY;
FROM PORTAB IMPORT UNSIGNEDWORD;

(* [V]DI [T]ablet Functions: Set Tablet Axis [Resolution] in Lines/Inch ****)

PROCEDURE VTResolution(    Handle: UNSIGNEDWORD;
                           XRes  : UNSIGNEDWORD;
                           YRes  : UNSIGNEDWORD;
                       VAR XSet  : UNSIGNEDWORD;
                       VAR YSet  : UNSIGNEDWORD);

(* [V]DI [T]ablet Functions: Set Tablet Axis [Resolution] in Lines *********)

PROCEDURE VTAxis(    Handle: UNSIGNEDWORD;
                     XRes  : UNSIGNEDWORD;
                     YRes  : UNSIGNEDWORD;
                 VAR XSet  : UNSIGNEDWORD;
                 VAR YSet  : UNSIGNEDWORD);

(* [V]DI [T]ablet Functions: Set Tablet X And Y [Origin] *******************)

PROCEDURE VTOrigin(Handle : UNSIGNEDWORD;
                   XOrigin: UNSIGNEDWORD;
                   YOrigin: UNSIGNEDWORD);

(* [V]DI Tablet Functions: [Q]uery [T]ablet X And Y [Dimensions] ***********)

PROCEDURE VQTDimensions(    Handle    : UNSIGNEDWORD;
                        VAR XDimension: UNSIGNEDWORD;
                        VAR YDimension: UNSIGNEDWORD);

(* [V]DI [T]ablet Functions: Set Tablet [Alignment] ************************)

PROCEDURE VTAlignment(Handle: UNSIGNEDWORD;
                      DX    : UNSIGNEDWORD;
                      DY    : UNSIGNEDWORD);

END VTablet.
